home *** CD-ROM | disk | FTP | other *** search
/ Aminet 32 / Aminet 32 (1999)(Schatztruhe)[!][Aug 1999].iso / Aminet / util / cli / syp.lha / syp / source / syp_main.ascii next >
Encoding:
Text File  |  1999-05-19  |  824 b   |  62 lines
  1. ; opi
  2. ; sukksukkfukk
  3.  
  4. V$="$VER: show ya progresssss by opi.dadethmeat"
  5. INCLUDE "inc:pr"
  6.  
  7. Statement pick{f$}
  8.  
  9. SHARED a$,el
  10.  
  11. If ReadFile(0,f$)
  12.   FileInput 0
  13.   While Eof(0)=False
  14.     a$=Edit$(80)
  15.   Wend
  16.   CloseFile 0
  17.     Else
  18.       el=1
  19. EndIf
  20.  
  21. End Statement
  22. If FromCLI=0 Then el=2:Gosub help
  23. pick{"env:sypic_n"}:Gosub help
  24. name$=a$
  25. pick{"env:sypic_p"}:Gosub help
  26. proc$=a$
  27.  
  28. gdzie=Int(Val(proc$)/10)
  29. NPrint""
  30. Repeat
  31. ee+1
  32. If ee=gdzie Goto tu
  33. Print "-"
  34. .tam
  35. Until ee=10
  36. NPrint " "+proc$+"% of "+name$+" project"
  37. If Val(proc$)=>100 Then NPrint "finished!"
  38. NPrint""
  39. End
  40.  
  41. .help
  42.  
  43. Select el
  44.  
  45. Case 1
  46.  
  47.     pr{"Some needed varibles not found! Please read manual ERRORLEVEL=1"}
  48.     End
  49.  
  50. Case 2
  51.  
  52.     DefaultOutput
  53.     Print"This program should be runned from shell environment ERRORLEVEL=2"
  54.     End
  55.  
  56. End Select
  57. Return
  58.  
  59. .tu
  60. Print"^"
  61. Goto tam
  62.